home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / patch / patch1~1.zoo / diffs < prev    next >
Encoding:
Text File  |  1993-02-26  |  11.4 KB  |  498 lines
  1. *** /home/bammi/etc/src/patch/common.h    Tue Sep 29 16:45:36 1992
  2. --- common.h    Tue Sep 29 16:56:34 1992
  3. ***************
  4. *** 61,66 ****
  5. --- 61,67 ----
  6.   #define MAXHUNKSIZE 100000        /* is this enough lines? */
  7.   #define INITHUNKMAX 125            /* initial dynamic allocation size */
  8.   #define MAXLINELEN 1024
  9. + #ifndef atarist
  10.   #define BUFFERSIZE 1024
  11.   
  12.   #define SCCSPREFIX "s."
  13. ***************
  14. *** 70,75 ****
  15. --- 71,80 ----
  16.   #define RCSSUFFIX ",v"
  17.   #define CHECKOUT "co -l %s"
  18.   #define RCSDIFF "rcsdiff %s > /dev/null"
  19. + #else
  20. + extern unsigned long __DEFAULT_BUFSIZ__;
  21. + #define BUFFERSIZE __DEFAULT_BUFSIZ__
  22. + #endif
  23.   
  24.   #ifdef FLEXFILENAMES
  25.   #define ORIGEXT ".orig"
  26. ***************
  27. *** 97,103 ****
  28. --- 102,113 ----
  29.   
  30.   typedef char bool;
  31.   typedef long LINENUM;            /* must be signed */
  32. + #ifndef atarist
  33.   typedef unsigned MEM;            /* what to feed malloc */
  34. + #else
  35. + #include <stddef.h>
  36. + typedef size_t MEM;            /* what to feed malloc */
  37. + #endif
  38.   
  39.   /* globals */
  40.   
  41. ***************
  42. *** 109,115 ****
  43. --- 119,129 ----
  44.   EXT struct stat filestat;        /* file statistics area */
  45.   EXT int filemode INIT(0644);
  46.   
  47. + #ifndef atarist
  48.   EXT char buf[MAXLINELEN];        /* general purpose buffer */
  49. + #else
  50. + EXT char buf[32768];            /* general purpose buffer */
  51. + #endif
  52.   EXT FILE *ofp INIT(Nullfp);        /* output file pointer */
  53.   EXT FILE *rejfp INIT(Nullfp);        /* reject file pointer */
  54.   
  55. ***************
  56. *** 164,169 ****
  57. --- 178,186 ----
  58.   EXT char end_defined[128];        /* #endif xyzzy */
  59.   
  60.   EXT char *revision INIT(Nullch);    /* prerequisite revision, if any */
  61. + #ifdef NODIR
  62. + EXT char *simple_backup_suffix INIT("~");
  63. + #endif
  64.   
  65.   #include <errno.h>
  66.   #ifndef errno
  67. ***************
  68. *** 170,175 ****
  69. --- 187,193 ----
  70.   extern int errno;
  71.   #endif
  72.   
  73. + #ifndef atarist
  74.   FILE *popen();
  75.   char *malloc();
  76.   char *realloc();
  77. ***************
  78. *** 180,185 ****
  79. --- 198,211 ----
  80.   char *rindex();
  81.   long lseek();
  82.   char *mktemp();
  83. + char *getenv();
  84. + #else
  85. + #include <string.h>
  86. + #include <memory.h>
  87. + #include <unistd.h>
  88. + EXT unsigned long __DEFAULT_BUFSIZ__ INIT(64*1024L);
  89. + #endif
  90. + 
  91.   #if 0                /* This can cause a prototype conflict.  */
  92.   #ifdef CHARSPRINTF
  93.   char *sprintf();
  94. ***************
  95. *** 187,193 ****
  96.   int sprintf();
  97.   #endif
  98.   #endif
  99. - 
  100.   #if !defined(S_ISDIR) && defined(S_IFDIR)
  101.   #define    S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
  102.   #endif
  103. --- 213,218 ----
  104. *** /home/bammi/etc/src/patch/inp.c    Tue Sep 29 16:45:36 1992
  105. --- inp.c    Tue Sep 29 17:04:48 1992
  106. ***************
  107. *** 90,95 ****
  108. --- 90,96 ----
  109.       statfailed = stat(filename, &filestat);
  110.       }
  111.       /* For nonexistent or read-only files, look for RCS or SCCS versions.  */
  112. + #ifndef atarist
  113.       if (statfailed
  114.       /* No one can write to it.  */
  115.       || (filestat.st_mode & 0222) == 0
  116. ***************
  117. *** 145,150 ****
  118. --- 146,155 ----
  119.           fatal3("can't check out file %s from %s\n", filename, cs);
  120.       }
  121.       }
  122. + #else
  123. +     if(statfailed)
  124. +         fatal2("Can't find %s.\n", filename);
  125. + #endif
  126.       filemode = filestat.st_mode;
  127.       if (!S_ISREG(filemode))
  128.       fatal2("%s is not a normal file--can't patch\n", filename);
  129. *** /home/bammi/etc/src/patch/patch.c    Tue Sep 29 16:45:36 1992
  130. --- patch.c    Tue Sep 29 16:50:06 1992
  131. ***************
  132. *** 138,143 ****
  133. --- 138,147 ----
  134.       int failtotal = 0;
  135.       int i;
  136.   
  137. + #ifdef atarist
  138. +     _binmode(1);
  139. +     stdin->_flag |= _IOBIN;    /* sorry! */
  140. + #endif
  141.       setbuf(stderr, serrbuf);
  142.       for (i = 0; i<MAXFILEC; i++)
  143.       filearg[i] = Nullch;
  144. ***************
  145. *** 151,156 ****
  146. --- 155,167 ----
  147.         int tmpname_len;
  148.   
  149.         tmpdir = getenv ("TMPDIR");
  150. + #ifdef atarist
  151. +       if (tmpdir == (char *)0) {
  152. +     tmpdir = getenv ("TEMP");
  153. +     if (tmpdir == (char *)0)
  154. +       tmpdir = getenv ("TMP");
  155. +       }
  156. + #endif
  157.         if (tmpdir == NULL) {
  158.       tmpdir = "/tmp";
  159.         }
  160. ***************
  161. *** 157,179 ****
  162. --- 168,222 ----
  163.         tmpname_len = strlen (tmpdir) + 20;
  164.   
  165.         TMPOUTNAME = (char *) malloc (tmpname_len);
  166. + #ifdef atarist
  167. +       strcpy (TMPOUTNAME, tmpdir);
  168. +       if (TMPOUTNAME[strlen (TMPOUTNAME) - 1] == '/' ||
  169. +       TMPOUTNAME[strlen (TMPOUTNAME) - 1] == '\\')
  170. +     TMPOUTNAME[strlen (TMPOUTNAME) - 1] = '\0';
  171. +       strcat (TMPOUTNAME, "/patoXXXX");
  172. + #else      
  173.         strcpy (TMPOUTNAME, tmpdir);
  174.         strcat (TMPOUTNAME, "/patchoXXXXXX");
  175. + #endif
  176.         Mktemp(TMPOUTNAME);
  177.   
  178.         TMPINNAME = (char *) malloc (tmpname_len);
  179. + #ifdef atarist
  180. +       strcpy (TMPINNAME, tmpdir);
  181. +       if (TMPINNAME[strlen (TMPINNAME) - 1] == '/' ||
  182. +       TMPINNAME[strlen (TMPINNAME) - 1] == '\\')
  183. +     TMPINNAME[strlen (TMPINNAME) - 1] = '\0';
  184. +       strcat (TMPINNAME, "/patiXXXX");
  185. + #else      
  186.         strcpy (TMPINNAME, tmpdir);
  187.         strcat (TMPINNAME, "/patchiXXXXXX");
  188. + #endif
  189.         Mktemp(TMPINNAME);
  190.   
  191.         TMPREJNAME = (char *) malloc (tmpname_len);
  192. + #ifdef atarist
  193. +       strcpy (TMPREJNAME, tmpdir);
  194. +       if (TMPREJNAME[strlen (TMPREJNAME) - 1] == '/' ||
  195. +       TMPREJNAME[strlen (TMPREJNAME) - 1] == '\\')
  196. +     TMPREJNAME[strlen (TMPREJNAME) - 1] = '\0';
  197. +       strcat (TMPREJNAME, "/patrXXXX");
  198. + #else      
  199.         strcpy (TMPREJNAME, tmpdir);
  200.         strcat (TMPREJNAME, "/patchrXXXXXX");
  201. + #endif
  202.         Mktemp(TMPREJNAME);
  203.   
  204.         TMPPATNAME = (char *) malloc (tmpname_len);
  205. + #ifdef atarist
  206. +       strcpy (TMPPATNAME, tmpdir);
  207. +       if (TMPPATNAME[strlen (TMPPATNAME) - 1] == '/' ||
  208. +       TMPPATNAME[strlen (TMPPATNAME) - 1] == '\\')
  209. +     TMPPATNAME[strlen (TMPPATNAME) - 1] = '\0';
  210. +       strcat (TMPPATNAME, "/patpXXXX");
  211. + #else      
  212.         strcpy (TMPPATNAME, tmpdir);
  213.         strcat (TMPPATNAME, "/patchpXXXXXX");
  214. + #endif
  215.         Mktemp(TMPPATNAME);
  216.       }
  217.   
  218. ***************
  219. *** 368,373 ****
  220. --- 411,441 ----
  221.       if (failed) {
  222.           failtotal += failed;
  223.           if (!*rejname) {
  224. + #ifdef atarist
  225. +         char *rindex();
  226. +         char *dot, *slash;
  227. + 
  228. +         Strcpy(rejname, outname);
  229. +         if ((slash = rindex(rejname, '\\')) ||
  230. +             (slash = rindex(rejname, '/')))
  231. +             slash++;
  232. +         else
  233. +             slash = rejname;
  234. +         if (dot = rindex(slash, '.')) {
  235. +             dot++;
  236. +             if (strlen(dot) >= 3)
  237. +                 Strcpy(&dot[2], REJEXT);
  238. +             else
  239. +                 Strcat(dot, REJEXT);
  240. +         } else {
  241. +             if (strlen(slash) > 8)
  242. +                 Strcpy(&slash[8], ".");
  243. +             else {
  244. +                     Strcat(slash, ".");
  245. +             }
  246. +             Strcat(slash, REJEXT);
  247. +         }
  248. + #else /* atarist */
  249.           Strcpy(rejname, outname);
  250.   #ifndef FLEXFILENAMES
  251.           {
  252. ***************
  253. *** 382,387 ****
  254. --- 450,456 ----
  255.           }
  256.   #endif
  257.           Strcat(rejname, REJEXT);
  258. + #endif /* !atarist */
  259.           }
  260.           if (skip_rest_of_patch) {
  261.           say4("%d out of %d hunks ignored--saving rejects to %s\n",
  262. *** /home/bammi/etc/src/patch/pch.c    Tue Sep 29 16:45:36 1992
  263. --- pch.c    Tue Sep 29 16:50:07 1992
  264. ***************
  265. *** 730,740 ****
  266. --- 730,743 ----
  267.   
  268.       if (diff_type == CONTEXT_DIFF &&
  269.         (fillcnt || (p_first > 1 && ptrn_copiable > 2*p_context)) ) {
  270. + #ifndef atarist    /* unfortunately this is always true for TOS because of
  271. +            the ^M at the end of a line -- just ignore warning */
  272.           if (verbose)
  273.           say4("%s\n%s\n%s\n",
  274.   "(Fascinating--this is really a new-style context diff but without",
  275.   "the telltale extra asterisks on the *** line that usually indicate",
  276.   "the new style...)");
  277. + #endif
  278.           diff_type = NEW_CONTEXT_DIFF;
  279.       }
  280.       
  281. ***************
  282. *** 1241,1246 ****
  283. --- 1244,1250 ----
  284.       return p_hunk_beg;
  285.   }
  286.   
  287. + #ifndef atarist
  288.   /* Apply an ed script by feeding ed itself. */
  289.   
  290.   void
  291. ***************
  292. *** 1303,1305 ****
  293. --- 1307,1317 ----
  294.       chmod(outname, filemode);
  295.       set_signals(1);
  296.   }
  297. + #else
  298. + void
  299. + do_ed_script()
  300. + {
  301. +     fprintf(stderr,"Sorry! TOS version of Patch cannot deal with ed scripts\n");
  302. +     exit(999);
  303. + }
  304. + #endif
  305. *** /home/bammi/etc/src/patch/util.c    Tue Sep 29 16:45:36 1992
  306. --- util.c    Tue Sep 29 17:30:29 1992
  307. ***************
  308. *** 48,54 ****
  309.       }
  310.   
  311.       if (origprae) {
  312. !     Strcpy(bakname, origprae);
  313.       Strcat(bakname, to);
  314.       } else {
  315.   #ifndef NODIR
  316. --- 48,54 ----
  317.       }
  318.   
  319.       if (origprae) {
  320. !         Strcpy(bakname, origprae);
  321.       Strcat(bakname, to);
  322.       } else {
  323.   #ifndef NODIR
  324. ***************
  325. *** 58,65 ****
  326.       Strcpy(bakname, backupname);
  327.       free(backupname);
  328.   #else /* NODIR */
  329.       Strcpy(bakname, to);
  330. !         Strcat(bakname, simple_backup_suffix);
  331.   #endif /* NODIR */
  332.       }
  333.   
  334. --- 58,91 ----
  335.       Strcpy(bakname, backupname);
  336.       free(backupname);
  337.   #else /* NODIR */
  338. + #ifdef atarist
  339. +     char *rindex();
  340. +     char *dot, *slash;
  341. + 
  342.       Strcpy(bakname, to);
  343. !     if ((slash = rindex(bakname, '\\')) ||
  344. !         (slash = rindex(bakname, '/')))
  345. !       slash++;
  346. !     else
  347. !       slash = bakname;
  348. !     if (dot = rindex(slash, '.')) {
  349. !       dot++;
  350. !       if (strlen(dot) >= 3)
  351. !         Strcpy(&dot[2], ORIGEXT);
  352. !       else
  353. !         Strcat(dot, ORIGEXT);
  354. !     } else {
  355. !       if (strlen(slash) > 8)
  356. !         Strcpy(&slash[8], ".");
  357. !       else {
  358. !         Strcat(slash, ".");
  359. !       }
  360. !       Strcat(slash, ORIGEXT);
  361. !     }
  362. ! #else /* atarist */
  363. !      Strcpy(bakname, to);
  364. !          Strcat(bakname, simple_backup_suffix);
  365. ! #endif /* !atarist */
  366.   #endif /* NODIR */
  367.       }
  368.   
  369. ***************
  370. *** 89,94 ****
  371. --- 115,123 ----
  372.       if (debug & 4)
  373.           say3("Moving %s to %s.\n", to, bakname);
  374.   #endif
  375. + #ifdef atarist
  376. +     copy_file(to, bakname);
  377. + #else
  378.       if (link(to, bakname) < 0) {
  379.           /* Maybe `to' is a symlink into a different file system.
  380.              Copying replaces the symlink with a file; using rename
  381. ***************
  382. *** 111,123 ****
  383. --- 140,159 ----
  384.           Close(tofd);
  385.           Close(bakfd);
  386.       }
  387. + #endif
  388.       while (unlink(to) >= 0) ;
  389.       }
  390. + 
  391.   #ifdef DEBUGGING
  392.       if (debug & 4)
  393.       say3("Moving %s to %s.\n", from, to);
  394.   #endif
  395. + 
  396. + #ifndef atarist
  397.       if (link(from, to) < 0) {        /* different file system? */
  398. + #else
  399. +     if (1) {
  400. + #endif
  401.       Reg4 int tofd;
  402.       
  403.       tofd = creat(to, 0666);
  404. ***************
  405. *** 253,258 ****
  406. --- 289,297 ----
  407.   
  408.       Sprintf(buf, pat, arg1, arg2, arg3);
  409.       Fflush(stderr);
  410. + #ifdef atarist
  411. +     r = _tos_ask(buf);
  412. + #else
  413.       write(2, buf, strlen(buf));
  414.       if (tty2) {                /* might be redirected to a file */
  415.       r = read(2, buf, sizeof buf);
  416. ***************
  417. *** 277,282 ****
  418. --- 316,322 ----
  419.       buf[0] = '\n';
  420.       r = 1;
  421.       }
  422. + #endif
  423.       if (r <= 0)
  424.       buf[0] = 0;
  425.       else
  426. ***************
  427. *** 429,434 ****
  428. --- 469,475 ----
  429.       free(fullname);
  430.   
  431.       if (stat(name, &filestat) && !assume_exists) {
  432. + #ifndef atarist
  433.       char *filebase = basename(name);
  434.       int pathlen = filebase - name;
  435.   
  436. ***************
  437. *** 442,447 ****
  438. --- 483,489 ----
  439.           || try("SCCS/%s%s", SCCSPREFIX, filebase)
  440.           || try(     "%s%s", SCCSPREFIX, filebase))
  441.         return name;
  442. + #endif
  443.       free(name);
  444.       name = Nullch;
  445.       }
  446. ***************
  447. *** 448,450 ****
  448. --- 490,538 ----
  449.   
  450.       return name;
  451.   }
  452. + 
  453. + #ifdef atarist
  454. + /* this kludge is necessary because stdin is most likely re-directed
  455. +    and there is no way to read from CON: due to the braindamage
  456. +    in handles -- thanks Atari
  457. +  */
  458. + #undef Fclose
  459. + #undef Fseek
  460. + #include <osbind.h>
  461. + int _tos_ask(buf)
  462. + char *buf;
  463. + {
  464. +     /* have to el-kludge it */
  465. +     int c;
  466. +     int r = 0;
  467. +     char *p = buf;
  468. + 
  469. +     write(2, buf, strlen(buf));
  470. + 
  471. +     while(( c = (Bconin(2) & 0x7f)) != '\r')
  472. +     {
  473. +     switch(c)
  474. +         {   /* we dont handle tabs/control chars nicely here */
  475. +         case 0:
  476. +         break;
  477. +         case '\b':
  478. +         case 0177:
  479. +         if(r > 0)
  480. +         { --p; --r; }
  481. +         Bconout(2, '\b'); Bconout(2, ' '); Bconout(2, '\b');
  482. +             break;
  483. +         default:
  484. +         if(c >= ' ')
  485. +         {
  486. +             *p++ = c; r++;
  487. +             Bconout(2, c);
  488. +         }
  489. +         /* else ignore control chars/tabs */
  490. +     }
  491. +     }
  492. +     Bconout(2, '\r');
  493. +     Bconout(2, '\n');
  494. +     *p++ = '\n'; *p = '\0';
  495. +     return r+1;
  496. + }
  497. + #endif
  498.